home *** CD-ROM | disk | FTP | other *** search
/ Disc to the Future 2 / Disc to the Future Part II Programmer's Reference (Wayzata Technology)(6013)(1992).bin / MAC / THINKC / 5 / BOOZ_MAC / BOOZ_2 / MAKETBL.C < prev    next >
Text File  |  1992-07-19  |  2KB  |  72 lines
  1. /*$Source: /usr/home/dhesi/booz/RCS/maketbl.c,v $*/
  2. /*$Id: maketbl.c,v 1.7 91/07/08 12:06:59 dhesi Exp $*/
  3. /***********************************************************
  4. Make table for decoding lzh.
  5.  
  6. Adapted from "ar" archiver written by Haruhiko Okumura.
  7. ***********************************************************/
  8. #include "booz.h"
  9. #include "zoo.h"
  10. #include "ar.h"
  11. #include "lzh.h"
  12.  
  13. int make_table(nchar, bitlen, tablebits, table)
  14. int nchar;
  15. uchar bitlen[];
  16. int tablebits;
  17. ushort table[];
  18. {
  19.     ushort count[17], weight[17], start[18], *p;
  20.     uint i, k, len, ch, jutbits, avail, nextcode, mask;
  21.  
  22.     for (i = 1; i <= 16; i++) count[i] = 0;
  23.     for (i = 0; i < nchar; i++) count[bitlen[i]]++;
  24.  
  25.     start[1] = 0;
  26.     for (i = 1; i <= 16; i++)
  27.         start[i + 1] = start[i] + (count[i] << (16 - i));
  28.     if (start[17] != (ushort)((unsigned) 1 << 16))
  29.         prterror('f', "Bad decode table\n", (char *)0, (char *)0);
  30.  
  31.     jutbits = 16 - tablebits;
  32.     for (i = 1; i <= tablebits; i++) {
  33.         start[i] >>= jutbits;
  34.         weight[i] = (unsigned) 1 << (tablebits - i);
  35.     }
  36.     while (i <= 16) {
  37.        weight[i] = (unsigned) 1 << (16 - i);
  38.        i++;
  39.         }
  40.  
  41.     i = start[tablebits + 1] >> jutbits;
  42.     if (i != (ushort)((unsigned) 1 << 16)) {
  43.         k = 1 << tablebits;
  44.         while (i != k) table[i++] = 0;
  45.     }
  46.  
  47.     avail = nchar;
  48.     mask = (unsigned) 1 << (15 - tablebits);
  49.     for (ch = 0; ch < nchar; ch++) {
  50.         if ((len = bitlen[ch]) == 0) continue;
  51.         nextcode = start[len] + weight[len];
  52.         if (len <= tablebits) {
  53.             for (i = start[len]; i < nextcode; i++) table[i] = ch;
  54.         } else {
  55.             k = start[len];
  56.             p = &table[k >> jutbits];
  57.             i = len - tablebits;
  58.             while (i != 0) {
  59.                 if (*p == 0) {
  60.                     right[avail] = left[avail] = 0;
  61.                     *p = avail++;
  62.                 }
  63.                 if (k & mask) p = &right[*p];
  64.                 else          p = &left[*p];
  65.                 k <<= 1;  i--;
  66.             }
  67.             *p = ch;
  68.         }
  69.         start[len] = nextcode;
  70.     }
  71. }
  72.